From d76f2a920e738818bebd2798eedb3e6f9044231f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 29 Jan 2003 12:16:54 +0000 Subject: [PATCH] (cperl-beautify-level, cperl-beautify-regexp): Fix use of `prefix-numeric-value'. (cperl-calculate-indent): Fix typo. --- lisp/progmodes/cperl-mode.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 86147a2ca73..3e363220058 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -2360,7 +2360,7 @@ In usual case returns an integer: the column to indent to. Returns nil if line starts inside a string, t if in a comment. Will not correct the indentation for labels, but will correct it for braces -and closing parentheses and brackets.." +and closing parentheses and brackets." (save-excursion (if (or (and (memq (get-text-property (point) 'syntax-type) @@ -6796,9 +6796,7 @@ prototype \&SUB Returns prototype of the function given a reference. "Do it. (Experimental, may change semantics, recheck the result.) We suppose that the regexp is scanned already." (interactive "P") - (if deep - (prefix-numeric-value deep) - (setq deep -1)) + (setq deep (if deep (prefix-numeric-value deep) -1)) (save-excursion (goto-char (cperl-make-regexp-x)) (let ((b (point)) (e (make-marker))) @@ -6871,9 +6869,7 @@ We suppose that the regexp is scanned already." \(Experimental, may change semantics, recheck the result.) We suppose that the regexp is scanned already." (interactive "P") - (if deep - (prefix-numeric-value deep) - (setq deep -1)) + (setq deep (if deep (prefix-numeric-value deep) -1)) (save-excursion (cperl-regext-to-level-start) (let ((b (point)) (e (make-marker))) -- 2.30.2